home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 9 / 009.d81 / guitar chords (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  10KB  |  269 lines
  1. 10 poke53280,13:poke53281,5:poke646,1:printchr$(142)
  2. 100 rem guitar chords
  3. 110 rem andy gamble, columbia college
  4. 120 rem 1625 w 10 ave vancouver bc
  5. 130 rem (c) feb '84
  6. 140 rem for pet, vic with 10k, c64
  7. 150 dataana,3,002220,002225,577655
  8. 160 dataanb,2,002020,575685,anc,2,002210,577555
  9. 170 dataand,2,002010,575585,ane,2,002120,x07654
  10. 180 dataanf,2,00230,x07755,ang,2,002030,575755
  11. 190 dataanh,2,002222,5x7675,ani,2,002212,5x7575
  12. 200 dataanj,3,002423,x05455,x05657,ank,2,002413,x05557
  13. 210 dataanl,2,002100,54645x,anm,2,x04200,x04455,x07677
  14. 220 dataann,2,x02523,x05658,ano,2,5453xx,5x5656
  15. 230 dataanp,3,x4322x,5432xx,xx3221,anq,2,x03021,5x5665
  16. 240 dataanr,3,2312xx,x3424x,xx1212,ans,2,x0122x,x07645
  17. 250 dataant,2,x0102x,x05645,anu,3,x0100x,545445,x07887
  18. 260 dataanv,3,x00000,x05433,x07787,anw,2,x05422,5x5677
  19. 270 dataasa,2,113331,688766,asb,2,113131,686796,asc,2,113321,688666
  20. 280 dataasd,2,113121,686696,ase,2,113231,68776x
  21. 290 dataasf,3,113341,xx3346,668866,asg,2,113141,686866,ash,2,113333,6x8786
  22. 300 dataasi,2,113023,6x8686,asj,3,110111,x5656x,6x6768
  23. 310 dataask,2,6465xx,686668,asl,3,110211,6575xx,xx8565
  24. 320 dataasm,2,110011,655566,asn,3,110121,65666x,686769
  25. 330 dataaso,3,110101,6564xx,6x6767,asp,3,x5433x,6543xx,xx4332
  26. 340 dataasq,2,x14132,6x6776,asr,3,3423xx,x1202x,xx2323
  27. 350 dataass,3,x1233x,xx8756,6787xx,ast,2,x1213x,xx6756
  28. 360 dataasu,3,010110,656556,xx8998,asv,3,011111,6x6544,x88898
  29. 370 dataasw,3,110113,6x6533,6x6788
  30. 380 databna,2,224442,799877,bnb,2,221202,223232
  31. 390 databnc,2,224432,799777,bnd,2,220202,224232
  32. 400 databne,3,224342,79887x,xx9876,bnf,3,224452,xx4457,779977
  33. 410 databng,3,222200,224252,797977,bnh,3,22110x,224444,7x9897
  34. 420 databni,3,220102,224434,7999797,bnj,3,221222,x6767x,xx7677
  35. 430 databnk,3,220222,7576xx,797779,bnl,3,x2132x,7686xx,xx9676
  36. 440 databnm,3,221122,766677,xx9899,bnn,2,x2123x,76777x
  37. 450 databno,3,x2121x,7675xx,7x7878,bnp,3,x2100x,3210xx,xx5443
  38. 460 databnq,3,x01003,x25243,7x7887,bnr,3,1201xx,x2313x,xx0101
  39. 470 databns,2,x2344x,xx9867,bnt,2,x2324x,xx7868
  40. 480 databnu,2,121221,767667,bnv,2,111111,7x7655
  41. 490 databnw,3,221224,7x7644,7x7899
  42. 500 datacna,2,332010,335553,cnb,2,332310,335353
  43. 510 datacnc,2,33101x,335543,cnd,2,33131x,335343
  44. 520 datacne,2,332000,335453,cnf,2,333011,335563
  45. 530 datacng,2,33331x,335363,cnh,2,332210,335555
  46. 540 datacni,2,33121x,335545,cnj,2,332333,x7878x,xx8788
  47. 550 datacnk,2,331333,8687xx,cnl,2,x3242x,8797xx
  48. 560 datacnm,2,332233,877788,cnn,2,x3234x,87888x
  49. 570 datacno,3,x3232x,8786xx,8x8989,cnp,3,x3211x,4321xx,xx6554
  50. 580 datacnq,3,x1211x,x36354,8x8998,cnr,3,2312xx,x3424x,xx1212
  51. 590 datacns,1,x3455x,cnt,2,x3435x,xx8978,cnu,x,232332,878778
  52. 600 datacnv,2,333333,8x8766,cnw,2,332335,8x8755
  53. 610 datacsa,2,443121,446664,csb,2,44342x,446464
  54. 620 datacsc,1,446654,csd,2,44242x,446454,cse,2,44311,446564
  55. 630 datacsf,2,446674,xx6679,csg,2,44442x,446474
  56. 640 datacsh,2,x4332x,446666,csi,2,44232x,44x656
  57. 650 datacsj,2,443444,x8989x,csk,2,442444,9798xx
  58. 660 datacsl,1,x4354x,csm,2,443344,988899,csn,2,x4345x,98999x
  59. 670 datacso,2,x4343x,9897xx,csp,3,x4322x,5432xx,xx3221
  60. 680 datacsq,2,x2322x,x47465,xsr,3,3423xx,x1202x,xx2323
  61. 690 datacss,1,x4566x,cst,1,x4546x,csu,2,343443,989889
  62. 700 datacsv,2,444444,9x9877,csw,2,443446,9x9866
  63. 710 datadna,2,x00232,557775,dnb,2,x00212,557575
  64. 720 datadnc,2,x00231,557765,dnd,2,x00211,557565
  65. 730 datadne,2,x00222,557675,dnf,2,x00233,557785
  66. 740 datadng,2,x00213,557585,dnh,2,x00202,557777
  67. 750 datadni,2,x00201,55x767,dnj,2,x00210,554555
  68. 760 datadnk,2,x00210,553555,dnl,2,x04220,x5465x
  69. 770 datadnm,1,554455,dnn,1,x5456x,dno,1,x5454x
  70. 780 datadnp,3,x5433x,6543xx,xx4332,dnq,2,x3433x,x58576
  71. 790 datadnr,3,1201xx,x2313x,xx0101,dns,1,x5677x,dnt,1,x5657x
  72. 800 datadnu,2,xx0110,454554,dnv,2,x00010,555555,dnw,1,554557
  73. 810 datadsa,2,665343,668886,dsb,2,66564x,668686
  74. 820 datadsc,2,xx4342,668876,dsd,2,66464x,668676
  75. 830 datadse,2,665333,668786,dsf,2,x6634x,668896
  76. 840 datadsg,2,66664x,668696,dsh,2,x6554x,668888
  77. 850 datadsi,2,66454x,66x878,dsj,1,665666,dsk,1,664666
  78. 860 datadsl,2,xx1031,x6576x,dsm,2,xx1011,665566,dsn,2,xx1022,x6567x
  79. 870 datadso,2,xx1020,x6565x,dsp,3,x2100x,3210xx,xx5443
  80. 880 datadsq,2,x4544x,x69687,dsr,3,2312xx,x3424x,xx1212
  81. 890 datadss,2,xx1243,x6788x,dst,2,xx1223,x6768x
  82. 900 datadsu,2,xx1221,565665,dsv,2,x11121,666666,dsw,1,665668
  83. 910 dataena,3,022100,076454,079990,enb,3,022130,076750,079797
  84. 920 dataenc,3,022000,0x5453,079987,end,3,022030,0x5430,079787
  85. 930 dataene,3,021100,076444,079897,enf,2,022200,077450
  86. 940 dataeng,2,020200,0x2435,enh,3,022120,076650,079999
  87. 950 dataeni,3,022020,07565x,07x989,enj,2,020132,076770
  88. 960 dataenk,2,0022032,075770,enl,3,021102,074444,076870
  89. 970 dataenm,2,022122,076677,enn,2,022133,076780
  90. 980 dataeno,2,0x0101,07676x,enp,3,032110,4321xx,0x6554
  91. 990 dataenq,2,0x0110,05655x,enr,3,3423xx,012020,0x2323
  92. 1000 dataens,3,0121x0,0x2354,078990,ent,2,0101x0,07879x
  93. 1010 dataenu,2,0x2332,676776,env,2,022232,077777
  94. 1020 dataenw,2,0x0122,0x6779
  95. 1030 datafna,2,133211,887565,fnb,2,131241,88786x
  96. 1040 datafnc,2,133111,x33564,fnd,2,131141,x33544
  97. 1050 datafne,2,1x3210,087555,fnf,2,113311,x8856x
  98. 1060 datafng,2,131311,88886x,fnh,2,1x3231,x8776x
  99. 1070 datafni,2,133131,88676x,fnj,3,101011,xx3543,887888
  100. 1080 datafnk,3,131113,xx3543,886888,fnl,3,103010,x85555,x8798x
  101. 1090 datafnm,3,10011,xx3233,887788,fnn,3,131214,xx3244,x8789x
  102. 1100 datafno,3,1x1212,xx3242,x8787x,fnp,3,x4322x,5432xx,xx3221
  103. 1110 datafnq,2,1x1221,x6766x,fnr,5,1201xx,x2313x,xx0101,xx3434,x5646x
  104. 1120 datafns,2,12320x,xx3456,fnt,2,12120,xx3445
  105. 1130 datafnu,3,101001,xx3443,787887,fnv,2,x3343,888888,fnw,1,1x1233
  106. 1140 datafsa,2,244322,998676,fsb,2,242352,99897x
  107. 1150 datafsc,2,244222,x44675,fsd,2,242252,x44655
  108. 1160 datafse,2,24332x,998666,fsf,2,224422,x9967x
  109. 1170 datafsg,2,242422,99997x,fsh,2,2x4342,x9887x
  110. 1180 datafsi,2,244242,99787x,fsj,3,xx2122,xx4654,998999
  111. 1190 datafsk,3,242224,xx4254,997999,fsl,2,xx4121,x96666
  112. 1200 datafsm,3,211122,xx4344,998899,fsn,2,21222x,242325
  113. 1210 datafso,3,2x2323,xx4353,x9898x
  114. 1215 datafsp,5,x5433x,6543xx,xx4332,x9877x,xx8776
  115. 1220 datafsq,2,2x2332,x7877x,fsr,5,2312xx,x3424x,xx1212,5645xx,x6757x
  116. 1230 datafss,2,2343xx,xx4576,fst,2,2323xx,224556
  117. 1240 datafsu,3,212112,xx4554,898998,fsv,3,2x2100,x44454,999999
  118. 1250 datafsw,1,2x2344,gna,3,320003,320033,355433,gnb,2,320001,353463
  119. 1260 datagnc,2,355333,x55786,gnd,2,353363,x55766
  120. 1270 datagne,2,xx5432,35443x,gnf,2,3x0013,335533
  121. 1280 datagng,2,3x301x,353533,gnh,2,320000,3x5453
  122. 1290 datagni,1,3x5353,gnj,2,x2323x,xx3233,gnk,2,3132xx,353335
  123. 1300 datagnl,2,32423x,xx5232,gnm,2,322233,xx5455
  124. 1310 datagnn,2,32333x,353436,gno,2,32310x,3x3434
  125. 1320 datagnp,6,x2100x,3210xx,xx5443,x6544x,7654xx,xx9887
  126. 1325 datagnq,2,3x3443,x8988x
  127. 1330 datagnr,3423xx,x1202x,xx2323,6756xx,x4535x,xx5656
  128. 1340 datagns,2,xx4312,xx5687,gnt,2,34340x,xx5667
  129. 1350 datagnu,2,323223,xx5665,gnv,2,3x3211,x55565
  130. 1360 datagnw,2,3x3200,3x3455
  131. 1370 datagsa,2,xx1114,466544,gsb,2,xx1112,464574
  132. 1380 datagsc,2,466444,x66897,gsd,2,466474,x66877
  133. 1390 datagse,2,xx6543,46554x,gsf,3,xx1124,446644,xx6899
  134. 1400 datagsg,3,xx1122,464644,xx6879,gsh,x,xx1111,4x6564
  135. 1410 datagsi,2,xx1101,4x6464,gsj,2,x3434x,xx4344
  136. 1420 datagsk,2,464446,xx6476,gsl,2,43534x,xx6343
  137. 1430 datagsm,2,433344,xx6566,gsn,2,43444x,464547
  138. 1440 datagso,2,4342xx,4x4545
  139. 1450 datagsp,5,x3211x,4321xx,xx6554,x7655x,8765xx
  140. 1460 datagsq,1,4x4554,gsr,6,1201xx,x2313x,xx0101,4534xx,x5646x,xx3434
  141. 1470 datagss,2,xx6534,4565xx,gst,3,xx4534,4545xx,xx6778
  142. 1480 datagsu,2,434334,xx6776,gsv,2,4x4322,x66676
  143. 1490 datagsw,2,4x4311,4x4566,*
  144. 1500 ll=40:rem line length for vic=22
  145. 1510 goto2650
  146. 1520 wi$="[221][221][221][221][221][221]":fr$="[171][219][219][219][219][179]":nut$="[176][178][178][178][178][174]"
  147. 1530 dimc$(24):lc$=""
  148. 1540 vt$=""
  149. 1550 bl$="                                        "
  150. 1560 rem chord types
  151. 1570 c$(1)="major"
  152. 1580 c$(2)="7th"
  153. 1590 c$(3)="minor"
  154. 1600 c$(4)="min 7th"
  155. 1610 c$(5)="maj 7"
  156. 1620 c$(6)="sus 4"
  157. 1630 c$(7)="7 sus 4"
  158. 1640 c$(8)="6th"
  159. 1650 c$(9)="min 6"
  160. 1660 c$(11)="min 9"
  161. 1670 c$(10)="9th"
  162. 1680 c$(12)="maj 9"
  163. 1690 c$(13)="6/9"
  164. 1700 c$(14)="7 aug 9"
  165. 1710 c$(15)="7 dim 9"
  166. 1720 c$(16)="aug"
  167. 1730 c$(17)="7 aug 5"
  168. 1740 c$(18)="dim"
  169. 1750 c$(19)="dim 5"
  170. 1760 c$(20)="7 dim 5"
  171. 1770 c$(21)="9 dim 5"
  172. 1780 c$(22)="11th"
  173. 1790 c$(23)="13th"
  174. 1800 c$(24)=""
  175. 1810 rem